home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / h / num_include.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-07  |  1.3 KB  |  58 lines
  1. /*
  2.  Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
  3.  
  4. This file is part of GNU Common Lisp, herein referred to as GCL
  5.  
  6. GCL is free software; you can redistribute it and/or modify it under
  7. the terms of the GNU LIBRARY GENERAL PUBLIC LICENSE as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. GCL is distributed in the hope that it will be useful, but WITHOUT
  12. ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13. FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public 
  14. License for more details.
  15.  
  16. You should have received a copy of the GNU Library General Public License 
  17. along with GCL; see the file COPYING.  If not, write to the Free Software
  18. Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. */
  21.  
  22. /*
  23.     number routine include file
  24. */
  25.  
  26. #define WSIZ 32
  27. #define MASK    0x7fffffff
  28.  
  29. #ifdef MV
  30.  
  31.  
  32. #endif
  33.  
  34. object Vrandom_state;
  35.  
  36.  
  37. #define BOOLCLR        0
  38. #define BOOLSET        017
  39. #define BOOL1        03
  40. #define BOOL2        05
  41. #define BOOLC1        014
  42. #define BOOLC2        012
  43. #define BOOLAND        01
  44. #define BOOLIOR        07
  45. #define BOOLXOR        06
  46. #define BOOLEQV        011
  47. #define BOOLNAND    016
  48. #define BOOLNOR        010
  49. #define BOOLANDC1    04
  50. #define BOOLANDC2    02
  51. #define BOOLORC1    015
  52. #define BOOLORC2    013
  53.  
  54. #define PI            3.141592653589793
  55.  
  56. #define MOST_POSITIVE_FIX    2147483647
  57. #define MOST_NEGATIVE_FIX    -2147483648
  58.